home *** CD-ROM | disk | FTP | other *** search
/ Publication 50 / Publication_50_2003_Civitas_de_Disk_2_of_2_Side_B.d64 / bas4x4 1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  151b  |  9 lines
  1. 0 print"[129][147]";:poke53270,216:poke53280,0:poke53281,0:poke53272,29
  2. 10 a=5632
  3. 20 b=3
  4. 30 fori=0to3
  5. 50 forx=0to3
  6. 60 poke1024+i*40+x,peek(a+(b*16)+h):h=h+1
  7. 70 nextx
  8. 80 nexti
  9.